048200                                                                  00048200
048300******************************************************************00048300
048400* 3100-CERRAR-FICHEROS                                            00048400
048500************************************************************      00048500
048510*$%                                                               00048510
048600 3100-CERRAR-FICHEROS.                                            00048600
048700                                                                  00048700
048710*$%                                                               00048710
048800     CLOSE ZV0001R                                                00048800
048900           ZV0001W                                                00048900
049000*%$ CIERRA LOS FICHEROS DE LECTURA/ESCRITURA DESEADOS             00049000
049100                                                                  00049100
049110*$%                                                               00049110
049200     IF W-FILE-STATUS-ZV0001R EQUAL ZEROS                         00049200
049210*$$ SI FUNCIONA BIEN Y EL FILE STATUS DEVUELVE 0                  00049210
049300                                                                  00049300
049400        CONTINUE                                                  00049400
049500                                                                  00049500
049510*$%                                                               00049510
049600     ELSE                                                         00049600
049700                                                                  00049700
049800        DISPLAY 'ERROR AL CERRAR EL FICHERO ZV0001R'              00049800
049900        DISPLAY 'FILE STATUS: ' W-FILE-STATUS-ZV0001R             00049900
050000                                                                  00050000
050100        PERFORM 9999-TRATAR-ERROR                                 00050100
050110*%$ SI HAY PROBLEMAS LLAMAMOS LA FUNCION PARA TRATAR EL ERROR     00050110
050200                                                                  00050200
050300     END-IF                                                       00050300
050400                                                                  00050400
050500     IF W-FILE-STATUS-ZV0001W EQUAL ZEROS                         00050500
050510*$$ SI FUNCIONA BIEN Y EL FILE STATUS DEVUELVE 0                  00050510
050600                                                                  00050600
050700        CONTINUE                                                  00050700
050800                                                                  00050800
050810*$%                                                               00050810
050900     ELSE                                                         00050900
051000                                                                  00051000
051100        DISPLAY 'ERROR AL CERRAR EL FICHERO ZV0001W'              00051100
051200        DISPLAY 'FILE STATUS: ' W-FILE-STATUS-ZV0001W             00051200
051300                                                                  00051300
051400        PERFORM 9999-TRATAR-ERROR                                 00051400
051410*%$ SI HAY PROBLEMAS LLAMAMOS LA FUNCION PARA TRATAR EL ERROR     00051410
051500                                                                  00051500
051600     END-IF                                                       00051600
051610*%$ COMPRUEBA EL FILE STATUS DE CADA UNO DE LOS FICHEROS          00051610
051700                                                                  00051700
051800                                                                  00051800
051900*%$ PARRAFO PARA CERRAR FICHERO                                   00051900